home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
daremd_1
/
docrdbde.dob
< prev
next >
Wrap
Text File
|
1999-08-12
|
19KB
|
530 lines
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{59986FC1-1A8F-11D3-8054-00105A154E54}#1.1#0"; "DARDB.OCX"
Begin VB.UserDocument docRDBDemo
ClientHeight = 6372
ClientLeft = 0
ClientTop = 0
ClientWidth = 6012
HScrollSmallChange= 225
ScaleHeight = 6372
ScaleWidth = 6012
VScrollSmallChange= 225
Begin VB.CommandButton cmdUpdate
Caption = "&Update"
Height = 375
Left = 2760
TabIndex = 1
Top = 0
Width = 855
End
Begin DARDB.DARemDataBar DARemDataBar1
Align = 1 'Align Top
Height = 372
Left = 0
TabIndex = 0
Top = 0
Width = 6012
_ExtentX = 10605
_ExtentY = 656
Server = ""
Connect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=Users.mdb"
RecordSource = "SELECT * FROM Users"
Enabled = -1 'True
UpdateType = 0
FetchMetaData = -1 'True
End
Begin VB.PictureBox picForm
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2412
Left = 120
ScaleHeight = 2412
ScaleWidth = 6012
TabIndex = 18
TabStop = 0 'False
Top = 960
Width = 6015
Begin VB.TextBox Text1
Appearance = 0 'Flat
DataField = "FirstName"
DataSource = "DARemDataBar1"
Height = 288
Left = 3840
MaxLength = 50
TabIndex = 8
Top = 0
Width = 2052
End
Begin VB.TextBox txtLastName
Appearance = 0 'Flat
DataField = "LastName"
DataSource = "DARemDataBar1"
Height = 288
Left = 840
MaxLength = 50
TabIndex = 6
Top = 0
Width = 2052
End
Begin TabDlg.SSTab sstMain
Height = 1812
Left = 0
TabIndex = 9
Top = 480
Width = 5892
_ExtentX = 10393
_ExtentY = 3196
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "Contact Info"
TabPicture(0) = "docRDBDemo.dox":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label3"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "txtEmail"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "txtPhone"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "Comments"
TabPicture(1) = "docRDBDemo.dox":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtComments"
Tab(1).ControlCount= 1
Begin VB.TextBox txtComments
Appearance = 0 'Flat
DataField = "Comments"
DataSource = "DARemDataBar1"
Height = 1212
Left = -74880
MaxLength = 1000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 480
Width = 5652
End
Begin VB.TextBox txtPhone
Appearance = 0 'Flat
DataField = "Company"
DataSource = "DARemDataBar1"
Height = 288
Left = 1080
MaxLength = 50
TabIndex = 11
Top = 600
Width = 3492
End
Begin VB.TextBox txtEmail
Appearance = 0 'Flat
DataField = "Email"
DataSource = "DARemDataBar1"
Height = 288
Left = 1080
MaxLength = 50
TabIndex = 13
Top = 1080
Width = 3492
End
Begin VB.Label Label6
Caption = "Amount Owed"
Height = 255
Left = -74760
TabIndex = 19
Top = 600
Width = 1215
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Company"
Height = 192
Left = 240
TabIndex = 10
Top = 600
Width = 696
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "E-mail"
Height = 192
Left = 240
TabIndex = 12
Top = 1080
Width = 456
End
End
Begin VB.Label lblField
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "First Name"
Height = 192
Index = 1
Left = 3000
TabIndex = 7
Top = 0
Width = 780
End
Begin VB.Label lblField
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Last Name"
Height = 192
Index = 0
Left = 0
TabIndex = 5
Top = 0
Width = 780
End
End
Begin VB.TextBox txtUserID
Appearance = 0 'Flat
DataField = "UserID"
DataSource = "DARemDataBar1"
Height = 285
Left = 5280
Locked = -1 'True
TabIndex = 4
Top = 600
Width = 732
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "docRDBDemo.dox":0038
Height = 1692
Left = 120
TabIndex = 15
Top = 3480
Width = 5892
_ExtentX = 10393
_ExtentY = 2985
_Version = 393216
HeadLines = 1
RowHeight = 16
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 6
BeginProperty Column00
DataField